#!/usr/local/bin/perl
unlink('a','b','c');
$count=unlink <*.c>;
print "The number of files removed was $count.\n";
